Tms Rmn Tms Rmn \D|D| O\D|D|% jwJpISimPjmIeAEos BOOK SCRIPT FOR THE MULTIMEDIA SYSTEM tbkMCIchk cmd,notif,req,brk ZretVal sysErrorNumber tbkmci( syserrornumber<>0 tbkmmerrorstring( tbkBitmapChk -- When ]TBKBMP.DLL standalone, you should modify -- function use the bitmap reporter tbkbmperrorstring( brk<> --Cover functions --These allow authors pass device alias instead tbkMCIPositionWindow devAlias,windowPos,flags Zhwnd 9("status" && 3 && " ","") tbkPositionWindow( tbkMCICenterWindow && " ","") tbkCenterWindow( tbkBitmapPositionWindow && " tbkBitmapCenterWindow && " tbkMCIGetWindowRect && " ","") tbkGetWindowRect( tbkBitmapGetWindowRect && " 4s_mminit tbkMMInitializeSystem -- guard against 4having been restored! { <> stuff used Hwidgets X"tbkwin.dll" YieldApp() <> 0 "TBKWIN. xfound. Some X may xwork" X"tbkdlg. OpenDlg( <> 0 "TBKDLG. readdmm multimedia "winhelp.exe .hlp" tbkmmdevices 4s_mmdevices f("Multimedia") c"Help" -- stub so some will without ES boxes checkdevice -- General utility -- Someday, ToolBook Thave built- data type checking isNumber x x + 0 --repair 3D resizing them sized Zsnap, txCN, hi, lo txClassName ; <> "Repair 3D f"&Yes" "&No" c"No" sysSuspendMessages recessed c"3DFrame" + 15, + 15,\ + 15, "3DField" "3DRect" znothing - 15, - 15,\ - 15, + 15, + 15,\ + 15, -- Slider control begins here -- NOTES ABOUT IDENTIFIERS -- s___ prefix -> handler only c"Thumb" ___setSliderLimits 4s___v, s___min, s___max, s___p down\ prevent updating mouse xmoved "HSliderThumb" loc - ___slidePos( "VSliderThumb" sliderPosition ___snapSlider\ (1 - glide width height p, s1, s2 b(0,(p - s1) /(s2 - s1)) thumb -- Another controlling OldMin OldMax j(1,( b(0,p))) "vSliderThumb" pOffset ) * (1-p) newPos "hSliderThumb" ) * p -- Restore state detentList detents catchRange 0 <> ends -- This initialization usually runs ONCE, unless app calls tbkmmInitializeSystem asure MME loaded X"mmsystem. killtbkmmsbk -- private (exported, but undocumented) tbkmmloadextensions( ) -- The these are standard L entry points tbkmmversion() -- MCI central interface -- parallel MMSYSTEM tbkTimerStart( tbkTimerStop( tbkTimerCapability() -- Utility \ MilliSecFromMSF( \ MilliSecFromHMS( \ MilliSecFromSMPTE( MSFFromMilliSec( HMSFromMilliSec( SMPTEFromMilliSec( -- Translation tbkMMTranslate( <> 0 "TBKMM. link failed" extended support <> 0 -- End Script addmm enterbook checkdevice multimedia sized buttonDown enterSystem buttonStillDown buttonUp author ___setSliderLimits readdmm tbkmmInitializeSystem nterWindow tbkBitmapChk tbkBitmapPositionWindow tbkBitmapCenterWindow tbkMCIchk tbkMCIGetWindowRect tbkBitmapGetWindowRect tbkMCIPositionWindow tbkmmdevices isNumber ___slidePos tbkMCICenterWindow sliderPosition ___snapSlider sliderPosition tbkMCIchk tbkmci tbkmmerrorstring retVal notif tbkBitmapChk tbkBitmap tbkmmerrorstring retVal tbkMCIPositionWindow status window handle tbkMCI tbkPositionWindow flags windowPos devAlias tbkMCICenterWindow status window handle tbkMCI tbkCenterWindow flags windowPos devAlias tbkBitmapPositionWindow status window tbkBitmap tbkPositionWindow flags windowPos devAlias tbkBitmapCenterWindow status window tbkBitmap tbkCenterWindow flags windowPos devAlias tbkMCIGetWindowRect status window handle tbkMCI tbkGetWindowRect flags devAlias tbkBitmapGetWindowRect status window tbkBitmap tbkGetWindowRect flags devAlias enterSystem tbkMMInitializeSystem s_mminit enterbook enterSystem tbkwin.dll YieldApp TBKWIN.DLL not found. Some widgets may not work tbkdlg.dll OpenDlg TBKDLG.DLL not found. Some widgets may not work P*readdmm s_mminit multimedia winhelp.exe tbkmm.hlp tbkmmdevices s_mmdevices author P*readdmm readdmm Multimedia &Multimedia checkdevice isNumber sized txClassName Repair 3D object after resizing? recessed recessed 3DFrame 3DField 3DRect recessed buttonDown txClassName Thumb o "___setSliderLimits buttonStillDown txClassName HSliderThumb ___slidePos VSliderThumb ___slidePos s___v s___min s___max s___p buttonUp txClassName HSliderThumb sliderPosition ___slidePos ___snapSlider VSliderThumb sliderPosition ___slidePos ___snapSlider s___v s___min s___max s___p ___setSliderLimits txClassName HSliderThumb txClassName VSliderThumb height width glide s___v s___min s___max ___slidePos sliderPosition sliderPosition group txClassName SliderThumb o "___setSliderLimits vSliderThumb hSliderThumb newPos pOffset OldMax OldMin thumb s___min s___max ___snapSlider detentList catchRange detents thumb tbkmmInitializeSystem mmsystem.dll mmsystem killtbkmmsbk tbkmm.dll tbkmmloadextensions tbkmmversion tbkmmerrorstring tbkMCI tbkTimerStart tbkTimerStop tbkTimerCapability MilliSecFromMSF MilliSecFromHMS MilliSecFromSMPTE MSFFromMilliSec HMSFromMilliSec SMPTEFromMilliSec tbkMMTranslate tbkGetWindowRect tbkPositionWindow tbkCenterWindow TBKMM.DLL link failed P*readdmm tbkmmloadextensions tbkmmerrorstring s_mminit s_mmdevices tbkmmversion DlgTitle Multimedia System Book DlgTitle Multimedia System Book author killtbkmmsbk "Microsoft Windows fMultimedia xpresent. No multimedia devices widgets will work." itemnum( I tmplist "Warning! Altering the 8may cause applications f"Proceed" "Cancel" kmmsbk killtbkmmsbk author itemnum killtbkmmsbk Microsoft Windows with Multimedia is not present. No multimedia devices or widgets will work. itemnum itemnum itemnum tbkmm.sbk tmplist author Warning! Altering the script for this system book may cause multimedia applications to break! Proceed Cancel Proceed 1